home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d20 / vp2_409e.szh / ARC_A.C next >
Text File  |  1991-07-13  |  20KB  |  685 lines

  1. /*
  2.   $Header: arc_a.c 3.3 87/12/12 00:39:38 Bob Exp $
  3.  
  4.                           The Conference Mail System
  5.  
  6.               This module was originally written by Bob Hartman
  7.                        Sysop of FidoNet node 1:132/101
  8.  
  9.    Spark Software, 427-3 Amherst St, CS 2032, Suite 232, Nashua, NH 03061
  10.  
  11.  The Conference Mail System  is a  complete Echomail processing package.  It
  12.  is a superset of the original  Echomail utilities created by Jeff Rush, and
  13.  also contains ideas gleaned from the  ARCmail,  Renum,  oMMM, MGM, and Opus
  14.  programs that were created by various software authors.
  15.  
  16.  This program source code is being released with the following provisions:
  17.  
  18.  1.  You are  free to make  changes to this source  code for use on your own
  19.  machine,  however,  altered source files may not be distributed without the
  20.  consent of Spark Software.
  21.  
  22.  2.  You may distribute "patches"  or  "diff" files for any changes that you
  23.  have made, provided that the "patch" or "diff" files are also sent to Spark
  24.  Software for inclusion in future releases of the entire package.   A "diff"
  25.  file for the source archives may also contain a compiled version,  provided
  26.  it is  clearly marked as not  being created  from the original source code.
  27.  No other  executable  versions may be  distributed without  the  consent of
  28.  Spark Software.
  29.  
  30.  3.  You are free to include portions of this source code in any program you
  31.  develop, providing:  a) Credit is given to Spark Software for any code that
  32.  may is used, and  b) The resulting program is free to anyone wanting to use
  33.  it, including commercial and government users.
  34.  
  35.  4.  There is  NO  technical support  available for dealing with this source
  36.  code, or the accompanying executable files.  This source  code  is provided
  37.  as is, with no warranty expressed or implied (I hate legalease).   In other
  38.  words, if you don't know what to do with it,  don't use it,  and if you are
  39.  brave enough to use it, you're on your own.
  40.  
  41.  Spark Software may be contacted by modem at (603) 888-8179 (node 1:132/101)
  42.  on the public FidoNet network, or at the address given above.
  43.  
  44.  To use this code you will need Microsoft C version 4.0, and also Microsoft
  45.  Macro Assembler version 4.0.
  46.  
  47. */
  48.  
  49. /*
  50.    $Log:    arc_a.c $
  51.  * Revision 3.3  87/12/12  00:39:38  Bob
  52.  * Source code release
  53.  *
  54. */
  55.  
  56. #include <stdio.h>
  57. #include <ctype.h>
  58. #include <fcntl.h>
  59. #include <io.h>
  60. #include <time.h>
  61. #include <string.h>
  62. #include <stdlib.h>
  63. #include <process.h>
  64. #include <sys/types.h>
  65. #include <sys/stat.h>
  66. #include "fastecho.h"
  67.  
  68. #define DEBUG 0
  69.  
  70. extern char *_months[];
  71. extern SEACONFIG config;
  72. extern AREAS_PTR areas[];
  73. extern char board_name[], sysop_name[];
  74. extern int tot_areas;
  75. extern char bbsfile[];
  76. extern char *arc_cmd[];
  77. extern int nread;
  78. extern int arc_args;
  79. extern int last_msg;
  80. extern int high_one;
  81. extern int convert;
  82. extern struct tm *t2;
  83. extern struct _stamp cur_stamp;
  84. extern int *msg_nums;
  85. extern char *holder1;
  86. extern int mail_low, mail_high;
  87. extern int seen_byl;
  88. extern int cminternal;
  89. extern int to_netmail;
  90. extern PACKED p_msg;
  91. extern PKTHDR pkt_hdr;
  92. extern char cur_dir[];
  93. extern char pkt_dir[];
  94. extern char tmpjunk[], tmpjunk1[], tmpjunk2[];
  95. extern unsigned def_attr;
  96. extern int seahome;
  97. extern MSG msg_tmp;
  98. extern char *tfs;
  99. int arc_compat = 1;
  100. int num_arc = -1;
  101. int arc_net[100];
  102. int arc_node[100];
  103. int arc_msg[100];
  104. char *asuffix[] =
  105.     { "SU1", "MO1", "TU1", "WE1", "TH1", "FR1", "SA1", NULL };
  106. char *weekday[] =
  107.     { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", NULL };
  108.  
  109. void arc_a ()
  110. {
  111.     int err;
  112.     char retname[15];
  113.  
  114.     /* First of all do we have any packets to do? */
  115.     sprintf (tmpjunk, "%s*.FS$", pkt_dir);
  116.     (void) filedir (tmpjunk, 0, retname, 0);
  117.     find_old();
  118.     zap_old ();
  119.     if (retname[0] == '\0')
  120.     {
  121.         /* We had no packets to ARCmail */
  122.         printf ("No packets generated\n");
  123.         return;
  124.     }
  125.  
  126.     /* Find all of the ARCmail that we already have out there */
  127.  
  128.     /* Get the first one to ARCmail */
  129.     (void) filedir (tmpjunk, 0, retname, 0);
  130.     while (retname[0])
  131.     {
  132.         /* Now for each packet ARC it up */
  133.         err = arc_to (retname);
  134.         if (err)
  135.         {
  136.             /* This is bad news - we did not finish the packet */
  137.             printf ("Errorlevel %d for ARCmail of '%s' - exiting\n", err, retname);
  138.             exit (3);
  139.         }
  140.  
  141.         /* Now get the next packet name */
  142.         (void) filedir (tmpjunk, 0, retname, 0);
  143.     }
  144. }
  145.  
  146. int arc_to (char retname[])
  147. {
  148.     int tonet, tonode;
  149.     int netdiff, nodediff;
  150.     int err, needmsg;
  151.     char newname[64];
  152.     char arcext[4];
  153. #ifdef IBMC
  154.     char tnet[5];
  155.     char tnode[5];
  156. #endif
  157.     long tt1;
  158.     struct tm *tt2;
  159.  
  160.     /* Find out who we were going to */
  161. #ifndef IBMC
  162.     sscanf (retname, "%04x%04x", &tonet, &tonode);
  163. #else
  164.     sscanf (retname, "%4s%4s", tnet, tnode);
  165.     sscanf (tnet, "%04x", &tonet);
  166.     sscanf (tnode, "%04x", &tonode);
  167. #endif
  168.  
  169. #if DEBUG
  170.     printf ("filename is '%s' extracted %d/%d\n", retname, tonet, tonode);
  171. #endif
  172.  
  173.     /* Now create the actual new packet name (must end in .PKT) */
  174.     tt1 = time(NULL);
  175.     tt2 = localtime (&tt1);
  176.     sprintf (tmpjunk1, "%s%s", pkt_dir, retname);
  177.     errno = 0;
  178.     do {
  179.         sprintf (newname,"%s%02d%02d%02d%02d.PKT", pkt_dir, tt2->tm_mday,
  180.             tt2->tm_hour, tt2->tm_min, tt2->tm_sec);
  181.         errno = 0;
  182.         (void) rename(tmpjunk1, newname);
  183.         ++(tt2->tm_sec);
  184.     } while (errno==13);
  185.  
  186.     /* Now get the differences in net and node numbers to generate ARCmail */
  187.     netdiff = config.net[1] - tonet;
  188.     nodediff = config.node[1] - tonode;
  189.  
  190.     printf ("ARCmailing to %d/%d\n", tonet, tonode);
  191.  
  192.     /* Find the extension to use */
  193.     needmsg = suffix (tonet, tonode, arcext, 1);
  194.  
  195.     /* Create the new filename */
  196.     sprintf (tmpjunk1, "%s%04x%04x.%s", cur_dir, netdiff, nodediff, arcext);
  197.  
  198. #if DEBUG
  199.     printf ("Using filename '%s'\n", tmpjunk1);
  200. #endif
  201.  
  202. #if DEBUG
  203.     printf ("Packet renamed to '%s'\n", newname);
  204. #endif
  205.  
  206.     /* Now actually create the archive */
  207.     strcpy (arc_cmd[arc_args], tmpjunk1);
  208.     strcpy (arc_cmd[arc_args+1], newname);
  209. /*   strcpy (tmpjunk3, arc_cmd[0]);
  210.     for (i = 1; i <= arc_args+1; i++)
  211.     {
  212.         strcat (tmpjunk3, " ");
  213.         strcat (tmpjunk3, arc_cmd[i]);
  214.     } */
  215.  
  216. #if DEBUG
  217.     printf ("Before ARC call:\n");
  218.     printf ("   needmsg = '%d'\n", needmsg);
  219.     printf ("   config.mailpath = '%s'\n", config.mailpath);
  220.     printf ("   netdiff = %d nodediff = %d\n", netdiff, nodediff);
  221. #endif
  222.     err = spawnvp (P_WAIT, arc_cmd[0], arc_cmd);
  223.     if (err)
  224.     {
  225.         /* Ooops */
  226.         sprintf (tmpjunk1, "%s%s", pkt_dir, retname);
  227. #if DEBUG
  228.         printf ("ARC error\n  Trying to rename %s to %s\n", newname, tmpjunk1);
  229. #endif
  230.         (void) rename (newname, tmpjunk1);
  231.         return (err);
  232.     }
  233.  
  234. #if DEBUG
  235.     printf ("After ARC call:\n");
  236.     printf ("   needmsg = '%d'\n", needmsg);
  237.     printf ("   config.mailpath = '%s'\n", config.mailpath);
  238.     printf ("   netdiff = %d nodediff = %d\n", netdiff, nodediff);
  239. #endif
  240.     /* create a file attach message */
  241.     if (seahome)
  242.         sprintf (tmpjunk1, "%04x%04x.%s", netdiff, nodediff, arcext);
  243.  
  244.     do_attach (needmsg, tonet, tonode, tmpjunk1);
  245.  
  246.     /* If we completed with no errors then unlink the packet */
  247.     unlink (newname);
  248.  
  249.     /* Return that all was ok */
  250.     return (0);
  251. }
  252.  
  253. void do_attach (
  254.    int  msg_no,
  255.    int  tonet,
  256.    int  tonode,
  257.    char filename[])
  258. {
  259.     int f;
  260.     char fname1[64];
  261.     char *p1;
  262.     FILE *fin;
  263.  
  264. #if DEBUG
  265.     printf ("Doing file attach message\n");
  266. #endif
  267.  
  268.     if (cminternal)
  269.     {
  270.         if (!msg_no)
  271.             return;
  272.  
  273.         /* Set up the .FLO filename */
  274.         sprintf (fname1, "%s%04x%04x.FLO", cur_dir, tonet, tonode);
  275.  
  276.         if ((fin = fopen (fname1, "a")) == NULL)
  277.         {
  278.             printf ("Cannot open '%s' - exiting\n", fname1);
  279.             exit (2);
  280.         }
  281.         fprintf (fin, "#%s\n", filename);
  282.         fclose (fin);
  283.     }
  284.     else
  285.     {
  286.         memset ((char *) &msg_tmp, 0, sizeof (MSG));
  287.         strcpy (msg_tmp.from, "ARCmail");
  288.         strcpy (msg_tmp.to, "SysOp");
  289.         strcpy (msg_tmp.subj, filename);
  290.  
  291.         /* Convert it to uppercase */
  292.         p1 = msg_tmp.subj;
  293.         while (*p1)
  294.         {
  295.             *p1 = (char) toupper (*p1);
  296.             ++p1;
  297.         }
  298.  
  299.         sprintf (msg_tmp.date, "%3.3s %2d %3.3s %02d %02d:%02d",
  300.         weekday[t2->tm_wday], t2->tm_mday, _months[t2->tm_mon],
  301.            t2->tm_year, t2->tm_hour, t2->tm_min);
  302.         msg_tmp.date[8] = (char) tolower (msg_tmp.date[8]);
  303.         msg_tmp.date[9] = (char) tolower (msg_tmp.date[9]);
  304.  
  305.         msg_tmp.times = 0;
  306.         msg_tmp.dest = tonode;
  307.         msg_tmp.orig = config.node[1];
  308.         msg_tmp.cost = 0;
  309.         msg_tmp.orig_net = config.net[1];
  310.         msg_tmp.dest_net = tonet;
  311.         msg_tmp.reply = 0;
  312.         msg_tmp.attr = MSGLOCAL|MSGPRIVATE|MSGFILE|MSGKILL|def_attr;
  313.         msg_tmp.up = 0;
  314.         msg_tmp._date_written.date = 0;
  315.         msg_tmp._date_written.time = 0;
  316.         msg_tmp._date_arrived.date = 0;
  317.         msg_tmp._date_arrived.time = 0;
  318.  
  319.         /* Create the message file name */
  320.         sprintf (fname1, "%s\\%d.MSG", config.mailpath, msg_no);
  321.  
  322. #if DEBUG
  323.         printf ("placing it in '%s'\n", fname1);
  324. #endif
  325.  
  326.         /* Open up new message file */
  327.         if((f = open (fname1, O_WRONLY|O_CREAT|O_TRUNC|O_BINARY, S_IREAD|S_IWRITE)) == -1)
  328.         {
  329.             printf ("\n'%s' could not be opened for file attach - exiting\n", fname1);
  330.             exit (2);
  331.         }
  332.  
  333.         /* Write out the header information */
  334.         (void )fast_write (f, (char *) &msg_tmp, sizeof (MSG));
  335.  
  336.         /* Write out the kludge information */
  337.         (void )fast_write (f, tfs, strlen (tfs+1));
  338.  
  339.        /* Now close the file */
  340.        (void) fast_close (f);
  341.     }
  342. }
  343.  
  344. int suffix (
  345.    int  tonet,
  346.    int  tonode,
  347.    char arcext[],
  348.    int  del)
  349. {
  350.     int i;
  351.     char curarc[15];
  352.     struct stat stbuf;
  353.  
  354.     /* First find out what archives we have out there for him */
  355.     sprintf (tmpjunk2, "%s%04x%04x.*", cur_dir,
  356.         config.net[1]-tonet, config.node[1]-tonode);
  357.     (void) filedir (tmpjunk2, 0, curarc, 0);
  358.  
  359.     /* Lets be optimistic */
  360.     strcpy (arcext, asuffix[t2->tm_wday]);
  361.  
  362.     /* Now if we have no archive to him, then just return the easy way */
  363.     if (curarc[0] == '\0')
  364.     {
  365.         printf ("Creating new archive '%s%04x%04x.%s'",
  366.            cur_dir, config.net[1]-tonet, config.node[1]-tonode, arcext);
  367.         if (cminternal)
  368.         {
  369.             printf ("\n");
  370.         }
  371.         else
  372.         {
  373.             printf ("and new MAIL:%04d.MSG\n", mail_high+1);
  374.         }
  375.         return (++mail_high);
  376.     }
  377.  
  378.     strcpy (arcext, &curarc[9]);
  379.     sprintf (tmpjunk2, "%s%s", cur_dir, curarc);
  380.  
  381.     find_old();
  382.  
  383.     /* Now find if this node is in the list */
  384.     if (!cminternal)
  385.     {
  386.         for (i = 0; i < num_arc; i++)
  387.         {
  388.            if ((arc_node[i] == tonode) && (arc_net[i] == tonet))
  389.            {
  390.             /* We found an archive to this guy already */
  391.             if (del)
  392.                 printf ("Adding to archive '%s' for node %d/%d (MAIL:%04d.MSG)\n",
  393.                     tmpjunk2, tonet, tonode, arc_msg[i]);
  394.             return (arc_msg[i]);
  395.             }
  396.         }
  397.  
  398.         arc_net[num_arc] = tonet;
  399.         arc_node[num_arc] = tonode;
  400.         arc_msg[num_arc] = ++mail_high;
  401.         ++num_arc;
  402.         if (!del)
  403.             return (mail_high);
  404.     }
  405.     else
  406.     {
  407.         stat (tmpjunk2, &stbuf);
  408.         if (stbuf.st_size > 0)
  409.         {
  410.             if (del)
  411.                 printf ("Adding to archive '%s' for node %d/%d\n",
  412.                   tmpjunk2, tonet, tonode);
  413.             return (0);
  414.         }
  415.     }
  416.  
  417.     /* No archive to him any more, delete the old archive */
  418.     printf ("Deleting SENT archive '%s'", tmpjunk2);
  419.     if (cminternal)
  420.         printf ("\n");
  421.     else
  422.         printf (" creating new MAIL:%04d.MSG\n", mail_high);
  423.     unlink (tmpjunk2);
  424.  
  425.     /* Increment the new archive */
  426.     if (strncmp (arcext, asuffix[t2->tm_wday], 2) == 0)
  427.     {
  428.        if ((arcext[2] == '0') && (arc_compat))
  429.        {
  430.            arcext[2] = 'A';
  431.        }
  432.        else if (arcext[2] == '9')
  433.        {
  434.            arcext[2] = '0';
  435.        }
  436.        else if (arcext[2] == 'Z')
  437.        {
  438.            /* Oh well, take our chances and start again */
  439.           arcext[2] = '1';
  440.        }
  441.        else
  442.        {
  443.            ++(arcext[2]);
  444.        }
  445.    }
  446.    else
  447.        strcpy (arcext, asuffix[t2->tm_wday]);
  448.  
  449.    /* Return the easy way */
  450.    return (mail_high);
  451. }
  452.  
  453. int set_bits (
  454.    int          tonet,
  455.    int          tonode,
  456.    unsigned int bits)
  457. {
  458.     int needmsg, netdiff, nodediff, omailhigh;
  459.     char arcext[5];
  460.  
  461.     /* set the bits used by the do_attach() routine */
  462.     def_attr = bits;
  463.  
  464.     /* Now get the differences in net and node numbers to generate ARCmail */
  465.     netdiff = config.net[1] - tonet;
  466.     nodediff = config.node[1] - tonode;
  467.  
  468.     printf ("Changing ARCmailing to %d/%d to %s/%s\n", tonet, tonode,
  469.       (bits&MSGCRASH)?"Crash":"NoCrash", (bits&MSGHOLD)?"Hold":"NoHold");
  470.  
  471.     omailhigh = mail_high;
  472.  
  473.     /* Find the extension to use */
  474.     if ((needmsg = suffix (tonet, tonode, arcext, 0)) > omailhigh)
  475.     {
  476.         mail_high = omailhigh;
  477.         printf ("No archive found for %d/%d\n", tonet, tonode);
  478.         return (0);
  479.     }
  480.  
  481.     /* Create the new filename */
  482.     if (seahome)
  483.         sprintf (tmpjunk1, "%04x%04x.%s", netdiff, nodediff, arcext);
  484.     else
  485.         sprintf (tmpjunk1, "%s%04x%04x.%s", cur_dir, netdiff, nodediff, arcext);
  486.  
  487.     /* create a file attach message */
  488.     do_attach (needmsg, tonet, tonode, tmpjunk1);
  489.  
  490.     /* Return that all was ok */
  491.     return (0);
  492. }
  493.  
  494. void find_old ()
  495. {
  496.     int i, f;
  497.     char *t1;
  498.     char msgname[64];
  499.  
  500.     if (cminternal)
  501.         return;
  502.  
  503.     /* Otherwise we have to see if the mail was already sent */
  504.     if (num_arc == -1)
  505.     {
  506.         /* Mark that we executed this part already */
  507.         num_arc = 0;
  508.  
  509.         /* Find all of the mail that has been sent */
  510.         printf ("Scanning for old ARCmail\n");
  511.  
  512.         strcpy (msgname, config.mailpath);
  513.         t1 = msgname+strlen(msgname);
  514.  
  515.         /* For each message in the netmail area */
  516.         for (i = 1; i <= mail_high; i++)
  517.         {
  518.             sprintf (t1, "\\%d.MSG", i);
  519.  
  520.             /* If we can't open it then continue on */
  521.             if ((f = open (msgname, O_RDONLY|O_BINARY)) == -1)
  522.                 continue;
  523.  
  524.             /* Otherwise read in a message full */
  525.             if (fast_read (f, (char *) &msg_tmp, sizeof (MSG)) != sizeof (MSG))
  526.             {
  527.                 /* If it is the wrong size, then continue */
  528.                 (void) fast_close (f);
  529.                 continue;
  530.             }
  531.  
  532.             /* Close the file */
  533.             (void) fast_close (f);
  534.  
  535.             /* If it does not have a file attached then continue */
  536.             if (!(msg_tmp.attr & MSGFILE))
  537.                 continue;
  538.  
  539.             /* If it is not to SysOp then continue */
  540.             if (strcmp (msg_tmp.to, "SysOp") != 0)
  541.                 continue;
  542.  
  543.             /* If it is not from ARCmail then continue */
  544.             if (strcmp (msg_tmp.from, "ARCmail") != 0)
  545.                 continue;
  546.  
  547.             /* If it is to us then continue */
  548.             if ((msg_tmp.dest == config.node[1]) && (msg_tmp.dest_net == config.net[1]))
  549.                 continue;
  550.  
  551.             /* Make sure it was generated here */
  552.             if (!(msg_tmp.attr & MSGLOCAL))
  553.                 continue;
  554.  
  555.             /* Otherwise save the pertinent data */
  556. #if DEBUG
  557.             printf ("Found archive to %d/%d at message %d\n", msg_tmp.dest_net, msg_tmp.dest, i);
  558. #endif
  559.             arc_net[num_arc] = msg_tmp.dest_net;
  560.             arc_node[num_arc] = msg_tmp.dest;
  561.             arc_msg[num_arc] = i;
  562.             ++num_arc;
  563.         }
  564.     }
  565. }
  566.  
  567. void zap_old ()
  568. {
  569.     int i, f;
  570.     int j, k;
  571.     int tnet, tnode;
  572.     char nett[5], nodet[5];
  573.     char curarc[15];
  574.     char aname[64];
  575.     struct stat st_stat;
  576.  
  577.     if (cminternal)
  578.         return;
  579.  
  580.     /* Now clean out the old ARCmail by zapping it to 0 length */
  581.     printf("Zapping sent ARCmail to 0 length\n");
  582.  
  583.     /* loop through *.SU? *.MO? ... */
  584.     for (i = 0; asuffix[i] != NULL; i++)
  585.     {
  586.         /* Set up the .....\*.MO? filename to look for */
  587.         sprintf (tmpjunk2, "%s*.%s", cur_dir, asuffix[i]);
  588.         tmpjunk2[strlen(tmpjunk2)-1] = '?';
  589.  
  590.         (void) filedir (tmpjunk2, 0, curarc, 0);
  591.  
  592.         k = 0;
  593.         while (curarc[0] != '\0')
  594.         {
  595.             ++k;
  596.  
  597.             /* Is it a real archive */
  598.             sprintf (aname, "%s%s", cur_dir, curarc);
  599.             if (stat (aname, &st_stat))
  600.             {
  601.                 goto next_one;
  602.             }
  603.  
  604.             if (strlen (curarc) != 12)
  605.             {
  606.                 goto next_one;
  607.             }
  608.  
  609.             if (arc_compat && !isdigit(curarc[11]))
  610.             {
  611.                 goto next_one;
  612.             }
  613.             else if ((!arc_compat) && (!isalnum(curarc[11])))
  614.             {
  615.                 goto next_one;
  616.             }
  617.  
  618.             for (j = 0; j < 8; j++)
  619.             {
  620.                 if ((curarc[j] <= '9') && (curarc[j] >= '0'))
  621.                     continue;
  622.                 if ((curarc[j] <= 'F') && (curarc[j] >= 'A'))
  623.                     continue;
  624.                 goto next_one;
  625.             }
  626.  
  627.             if (st_stat.st_size > 0)
  628.             {
  629.                 /* Each time we find something, see if it still has to go */
  630. #ifndef IBMC
  631.                 sscanf (curarc, "%04x%04x", &tnet, &tnode);
  632. #else
  633.                 sscanf (curarc, "%4s%4s", nett, nodet);
  634.                 sscanf (nett, "%04x", &tnet);
  635.                 sscanf (nodet, "%04x", &tnode);
  636. #endif
  637.                 tnet = config.net[1] - tnet;
  638.                 tnode = config.node[1] - tnode;
  639.  
  640.                 /* Now find if this node is in the list */
  641.                 for (j = 0; j < num_arc; j++)
  642.                 {
  643.                     if ((arc_node[j] == tnode) && (arc_net[j] == tnet))
  644.                     {
  645.                         break;
  646.                     }
  647.                 }
  648.  
  649.             /* If not, then zap it down to 0 size */
  650.             if (j == num_arc)
  651.             {
  652.                 printf ("Archive '%s' to %d/%d sent, ", aname, tnet, tnode);
  653.                 unlink (aname);
  654.                 if (i != t2->tm_wday)
  655.                 {
  656.                     printf ("deleting\n");
  657.                 }
  658.                 else
  659.                 {
  660.                     printf ("zapping\n");
  661.                     f = open (aname, O_WRONLY|O_CREAT|O_TRUNC|O_BINARY, S_IREAD|S_IWRITE);
  662.                     fast_close (f);
  663.                 }
  664.  
  665.                 /* Set up the .....\*.MO? filename to look for again */
  666.                 sprintf (tmpjunk2, "%s*.%s", cur_dir, asuffix[i]);
  667.                 tmpjunk2[strlen(tmpjunk2)-1] = '?';
  668.  
  669.                 --k;
  670.  
  671.                 for (j = 0; j < k; j++)
  672.                 {
  673.                     (void) filedir (tmpjunk2, j, curarc, 0);
  674.                 }
  675.             }
  676.         }
  677.  
  678.         /* Now get the next one */
  679. next_one:
  680.         filedir (tmpjunk2, k, curarc, 0);
  681.         }
  682.     }
  683. }
  684.  
  685.